* lisp/vc/vc-hg.el (vc-hg-clone): Add 'clone' implementation

diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index 61976288e351f1b9f9df27c03c64a73fb141b06b..a4ef7f355099b50a1ac34d18ba645f814ad8289a 100644 (file)
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -1249,6 +1249,8 @@ REV is the revision to check out into WORKFILE."
     (add-hook 'after-save-hook #'vc-hg-resolve-when-done nil t)
     (vc-message-unresolved-conflicts buffer-file-name)))
 
+(defun vc-hg-clone (remote directory)
+  (vc-hg-command nil 0 '() "clone" remote directory))
 
 ;; Modeled after the similar function in vc-bzr.el
 (defun vc-hg-revert (file &optional contents-done)